﻿Imports System.Data.SqlClient

Public Class DataProvider
    Public Shared Function ConnectDB(ByVal dbNAme As String) As SqlConnection
        Dim str = "Data Source=elite\sqlexpress;Initial Catalog=" & dbNAme & ";Integrated Security=True"
        Dim connect As New SqlConnection(str)
        Return connect
    End Function
End Class
